home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRAPHICS / IMGLIB95 / PREVIEW.DF_ / PREVIEW.DF / PREVIEW.txt < prev   
Text File  |  1996-03-31  |  14KB  |  481 lines
  1. object ThumbForm: TThumbForm
  2.   Left = 7
  3.   Top = 51
  4.   BorderStyle = bsDialog
  5.   Caption = 'Image pre-viewer'
  6.   ClientHeight = 352
  7.   ClientWidth = 609
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnActivate = FormActivate
  14.   OnClose = FormClose
  15.   PixelsPerInch = 96
  16.   TextHeight = 14
  17.   object Label1: TLabel
  18.     Left = 3
  19.     Top = 6
  20.     Width = 157
  21.     Height = 15
  22.     AutoSize = False
  23.     Color = clGray
  24.     Font.Color = clWhite
  25.     Font.Height = -11
  26.     Font.Name = 'Arial'
  27.     Font.Style = []
  28.     ParentColor = False
  29.     ParentFont = False
  30.   end
  31.   object Gauge1: TGauge
  32.     Left = 505
  33.     Top = 160
  34.     Width = 97
  35.     Height = 9
  36.     BorderStyle = bsNone
  37.     ForeColor = clNavy
  38.     BackColor = clBtnFace
  39.     Progress = 0
  40.   end
  41.   object Label2: TLabel
  42.     Left = 496
  43.     Top = 62
  44.     Width = 112
  45.     Height = 14
  46.     Alignment = taCenter
  47.     AutoSize = False
  48.     Font.Color = clBlack
  49.     Font.Height = -9
  50.     Font.Name = 'Arial'
  51.     Font.Style = []
  52.     ParentFont = False
  53.   end
  54.   object StopBtn: TSpeedButton
  55.     Left = 526
  56.     Top = 80
  57.     Width = 57
  58.     Height = 30
  59.     Glyph.Data = {
  60.       80010000424D8001000000000000760000002800000014000000140000000100
  61.       040000000000F000000000000000000000000000000000000000000000000000
  62.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  63.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  64.       7777777700007777711111111177777700007777199999999917777700007771
  65.       9999999999917777000077199999999999991777000071999999999999999177
  66.       000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
  67.       F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
  68.       F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
  69.       0000719999999999999991770000771999999999999917770000777199999999
  70.       9991777700007777199999999917777700007777711111111177777700007777
  71.       7777777777777777000000000000000000000000000000000000000000000000
  72.       00000000}
  73.     Visible = False
  74.     OnClick = AbortBtnClick
  75.   end
  76.   object Image1: TImage
  77.     Left = 530
  78.     Top = 115
  79.     Width = 49
  80.     Height = 37
  81.     Center = True
  82.     Picture.Data = {<image000.ico>}
  83.     OnDragDrop = Image1DragDrop
  84.     OnDragOver = Image1DragOver
  85.   end
  86.   object Thumbs: TStringGrid
  87.     Left = 168
  88.     Top = 7
  89.     Width = 324
  90.     Height = 301
  91.     DefaultColWidth = 60
  92.     DefaultRowHeight = 50
  93.     FixedCols = 0
  94.     RowCount = 10
  95.     FixedRows = 0
  96.     Font.Color = clBlack
  97.     Font.Height = -9
  98.     Font.Name = 'Arial'
  99.     Font.Style = []
  100.     Options = [goVertLine, goHorzLine]
  101.     ParentColor = True
  102.     ParentFont = False
  103.     ScrollBars = ssVertical
  104.     TabOrder = 0
  105.     OnClick = ThumbsClick
  106.     OnDblClick = ThumbsDblClick
  107.     OnDragDrop = ThumbsDragDrop
  108.     OnDragOver = ThumbsDragOver
  109.     OnDrawCell = ThumbsDrawCell
  110.     OnKeyDown = ThumbsKeyDown
  111.     OnMouseDown = ThumbsMouseDown
  112.     OnMouseMove = ThumbsMouseMove
  113.   end
  114.   object DriveComboBox1: TDriveComboBox
  115.     Left = 7
  116.     Top = 322
  117.     Width = 148
  118.     Height = 21
  119.     Color = clBtnFace
  120.     Font.Color = clBtnText
  121.     Font.Height = -12
  122.     Font.Name = 'Times New Roman'
  123.     Font.Style = []
  124.     ParentFont = False
  125.     TabOrder = 1
  126.     OnChange = DriveComboBox1Change
  127.     OnClick = DriveComboBox1Click
  128.   end
  129.   object DirectoryListBox1: TDirectoryListBox
  130.     Left = 8
  131.     Top = 199
  132.     Width = 146
  133.     Height = 117
  134.     Color = clBtnFace
  135.     Font.Color = clBtnText
  136.     Font.Height = -12
  137.     Font.Name = 'Times New Roman'
  138.     Font.Style = []
  139.     ItemHeight = 16
  140.     ParentFont = False
  141.     TabOrder = 2
  142.     OnChange = DirectoryListBox1Change
  143.     OnClick = DirectoryListBox1Click
  144.   end
  145.   object FileListBox1: TFileListBox
  146.     Left = 8
  147.     Top = 54
  148.     Width = 144
  149.     Height = 141
  150.     Hint = 'Drag Image on the grid to create thumbnail'
  151.     Color = clBtnFace
  152.     Font.Color = clBtnText
  153.     Font.Height = -12
  154.     Font.Name = 'Times New Roman'
  155.     Font.Style = []
  156.     ItemHeight = 16
  157.     Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
  158.     ParentFont = False
  159.     ShowGlyphs = True
  160.     TabOrder = 3
  161.     OnChange = FileListBox1Change
  162.     OnClick = FileListBox1Click
  163.     OnDblClick = FileListBox1DblClick
  164.     OnKeyDown = FileListBox1KeyDown
  165.     OnMouseDown = FileListBox1MouseDown
  166.   end
  167.   object ComboBox1: TComboBox
  168.     Left = 8
  169.     Top = 27
  170.     Width = 145
  171.     Height = 22
  172.     Color = clBtnFace
  173.     DropDownCount = 15
  174.     Font.Color = clBtnText
  175.     Font.Height = -11
  176.     Font.Name = 'Times New Roman'
  177.     Font.Style = []
  178.     ItemHeight = 14
  179.     Items.Strings = (
  180.       '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
  181.       '*.JPG'
  182.       '*.GIF'
  183.       '*.PCX'
  184.       '*.BMP'
  185.       '*.PNG'
  186.       '*.TIF'
  187.       '*.WMF'
  188.       '*.ICO')
  189.     ParentFont = False
  190.     TabOrder = 4
  191.     Text = 'Select file type'
  192.     OnChange = ComboBox1Change
  193.     OnClick = ComboBox1Click
  194.   end
  195.   object PMultiImage2: TPMultiImage
  196.     Left = 521
  197.     Top = 9
  198.     Width = 60
  199.     Height = 50
  200.     Center = True
  201.     Color = clBtnFace
  202.     ImageName = 'file not found'
  203.     ImageDither = True
  204.     ImageReadRes = lAutoMatic
  205.     ImageWriteRes = sAutoMatic
  206.     TifSaveCompress = sNONE
  207.     JPegSaveQuality = 25
  208.     JPegSaveSmooth = 0
  209.     TextLeft = 0
  210.     TextTop = 0
  211.     TextRotate = 0
  212.     TabOrder = 6
  213.     TabStop = False
  214.     Visible = False
  215.   end
  216.   object GroupBox2: TGroupBox
  217.     Left = 501
  218.     Top = 173
  219.     Width = 102
  220.     Height = 103
  221.     Hint = 'Resolution of the previews'
  222.     Caption = 'Resolution'
  223.     Font.Color = clBlack
  224.     Font.Height = -11
  225.     Font.Name = 'MS Sans Serif'
  226.     Font.Style = []
  227.     ParentFont = False
  228.     ParentShowHint = False
  229.     ShowHint = True
  230.     TabOrder = 7
  231.     object SaveRes24: TRadioButton
  232.       Left = 2
  233.       Top = 61
  234.       Width = 96
  235.       Height = 17
  236.       Caption = 'True color'
  237.       TabOrder = 0
  238.       OnClick = Saveresclick
  239.     end
  240.     object SaveRes8: TRadioButton
  241.       Left = 2
  242.       Top = 37
  243.       Width = 96
  244.       Height = 17
  245.       Caption = '256 colors'
  246.       TabOrder = 1
  247.       OnClick = Saveresclick
  248.     end
  249.     object SaveRes4System: TRadioButton
  250.       Left = 2
  251.       Top = 15
  252.       Width = 98
  253.       Height = 17
  254.       Caption = '16 system colors'
  255.       ParentShowHint = False
  256.       ShowHint = True
  257.       TabOrder = 2
  258.       OnClick = Saveresclick
  259.     end
  260.     object SaveResAuto: TRadioButton
  261.       Left = 2
  262.       Top = 83
  263.       Width = 68
  264.       Height = 17
  265.       Caption = 'Automatic'
  266.       Checked = True
  267.       TabOrder = 3
  268.       TabStop = True
  269.       OnClick = Saveresclick
  270.     end
  271.   end
  272.   object PMultiImage1: TPMultiImage
  273.     Left = 521
  274.     Top = 9
  275.     Width = 60
  276.     Height = 50
  277.     Center = True
  278.     Color = clBtnFace
  279.     ImageName = 'file not found'
  280.     ImageDither = True
  281.     ImageReadRes = lAutoMatic
  282.     ImageWriteRes = sAutoMatic
  283.     TifSaveCompress = sNONE
  284.     JPegSaveQuality = 25
  285.     JPegSaveSmooth = 0
  286.     Stretch = True
  287.     TextLeft = 0
  288.     TextTop = 0
  289.     TextRotate = 0
  290.     TabOrder = 5
  291.     TabStop = False
  292.   end
  293.   object GroupBox1: TGroupBox
  294.     Left = 500
  295.     Top = 288
  296.     Width = 104
  297.     Height = 56
  298.     Caption = 'Optimize previews'
  299.     TabOrder = 8
  300.     object RSpeed: TRadioButton
  301.       Left = 2
  302.       Top = 15
  303.       Width = 71
  304.       Height = 17
  305.       Caption = 'for speed'
  306.       Checked = True
  307.       TabOrder = 0
  308.       TabStop = True
  309.       OnClick = RSpeedClick
  310.     end
  311.     object RSize: TRadioButton
  312.       Left = 2
  313.       Top = 36
  314.       Width = 71
  315.       Height = 17
  316.       Caption = 'for size'
  317.       TabOrder = 1
  318.       OnClick = RSpeedClick
  319.     end
  320.   end
  321.   object Panel1: TPanel
  322.     Left = 167
  323.     Top = 307
  324.     Width = 325
  325.     Height = 37
  326.     BevelOuter = bvLowered
  327.     TabOrder = 9
  328.     object LoadBtn: TSpeedButton
  329.       Left = 1
  330.       Top = 2
  331.       Width = 37
  332.       Height = 34
  333.       Hint = 'Load all existing thumbs'
  334.       Glyph.Data = {
  335.         F6000000424DF600000000000000760000002800000010000000100000000100
  336.         0400000000008000000000000000000000001000000010000000000000000000
  337.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  338.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  339.         7777777777777777777777777780087777777800000000000087708800888800
  340.         880770880888888088077088087888808807708808E78880880770FF00888800
  341.         FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877
  342.         7777777777777777777777777777777777777777777777777777}
  343.       ParentShowHint = False
  344.       ShowHint = True
  345.       OnClick = LoadBtnClick
  346.     end
  347.     object CreateNewKeep: TSpeedButton
  348.       Left = 37
  349.       Top = 2
  350.       Width = 37
  351.       Height = 34
  352.       Hint = 'Create new previews keep old ones'
  353.       Glyph.Data = {
  354.         F6000000424DF600000000000000760000002800000010000000100000000100
  355.         0400000000008000000000000000000000001000000010000000000000000000
  356.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  357.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  358.         77777777777777777777777800000008777777707777777077007770788F8870
  359.         008077707777777080807770777887707070777078800870F070777080088070
  360.         00F0007008877070770008088770000877770F07700777777777007007777777
  361.         7777777777777777777777777777777777777777777777777777}
  362.       ParentShowHint = False
  363.       ShowHint = True
  364.       OnClick = IncAllKeepBtnClick
  365.     end
  366.     object CreateNewDelete: TSpeedButton
  367.       Left = 73
  368.       Top = 2
  369.       Width = 37
  370.       Height = 34
  371.       Hint = 'Create new previews and delete old ones'
  372.       Glyph.Data = {
  373.         42010000424D4201000000000000760000002800000011000000110000000100
  374.         040000000000CC00000000000000000000001000000010000000000000000000
  375.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  376.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  377.         7777700000007000000000000000700000007077770770770770700000007007
  378.         7077077077007000000070707777770770707000000070770770707707707000
  379.         0000707770770700777070000000707777007777777070000000707777777777
  380.         7770700000007077777777700770700000007077777777077070700000007077
  381.         7777770770707000000070777777777007707000000070777777777777707000
  382.         0000700000000000000070000000777777777777777770000000777777777777
  383.         777770000000}
  384.       ParentShowHint = False
  385.       ShowHint = True
  386.       OnClick = CreateNewDeleteClick
  387.     end
  388.     object DeleteAllBtn: TSpeedButton
  389.       Left = 109
  390.       Top = 2
  391.       Width = 37
  392.       Height = 34
  393.       Hint = 'Delete all previews'
  394.       Glyph.Data = {
  395.         42010000424D4201000000000000760000002800000011000000110000000100
  396.         040000000000CC00000000000000000000001000000010000000000000000000
  397.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  398.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  399.         777770000000777777777777777770000000777777777777770F700000007777
  400.         0F777777777770000000777000F7777770F770000000777000F777770F777000
  401.         00007777000F77700F777000000077777000F700F7777000000077777700000F
  402.         7777700000007777777000F777777000000077777700000F7777700000007777
  403.         7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
  404.         00007700F7777777700F70000000777777777777777770000000777777777777
  405.         777770000000}
  406.       ParentShowHint = False
  407.       ShowHint = True
  408.       OnClick = DeleteAllBtnClick
  409.     end
  410.     object ClearAllBtn: TSpeedButton
  411.       Left = 145
  412.       Top = 2
  413.       Width = 37
  414.       Height = 34
  415.       Hint = 'Clear preview window'
  416.       Glyph.Data = {
  417.         42010000424D4201000000000000760000002800000011000000110000000100
  418.         040000000000CC00000000000000000000001000000010000000000000000000
  419.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  420.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  421.         7777700000007777777777177777700000007777777771177777100000007777
  422.         7777711177717000000077777777771177117000000070000000000011577000
  423.         0000707777777775117770000000707007007071511770000000707777777711
  424.         771150000000704444445144447510000000774FFFFF15FFF47770000000774F
  425.         00F00F00F47770000000774FFFFFFFFFF4777000000077444444444444777000
  426.         0000774744744744747770000000774444444444447770000000777777777777
  427.         777770000000}
  428.       ParentShowHint = False
  429.       ShowHint = True
  430.       OnClick = ClearAllBtnClick
  431.     end
  432.     object CloseBtn: TSpeedButton
  433.       Left = 287
  434.       Top = 2
  435.       Width = 37
  436.       Height = 34
  437.       Hint = 'Close window'
  438.       Glyph.Data = {
  439.         78010000424D7801000000000000760000002800000020000000100000000100
  440.         04000000000000000000120B0000120B00000000000000000000000000000000
  441.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  442.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  443.         03333377777777777F333301111111110333337F333333337F33330111111111
  444.         0333337F333333337F333301111111110333337F333333337F33330111111111
  445.         0333337F333333337F333301111111110333337F333333337F33330111111111
  446.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  447.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  448.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  449.         0333337F377777337F333301111111110333337F333333337F33330111111111
  450.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  451.       Layout = blGlyphTop
  452.       NumGlyphs = 2
  453.       ParentShowHint = False
  454.       ShowHint = True
  455.       OnClick = CancelBtnClick
  456.     end
  457.     object AutoLoad: TCheckBox
  458.       Left = 185
  459.       Top = 4
  460.       Width = 70
  461.       Height = 17
  462.       Hint = 'Autoload Previews'
  463.       Caption = 'Autoload'
  464.       TabOrder = 0
  465.       OnClick = AutoLoadClick
  466.     end
  467.     object GPall: TCheckBox
  468.       Left = 185
  469.       Top = 18
  470.       Width = 96
  471.       Height = 17
  472.       Hint = 'In 256 color mode use a shared palette'
  473.       Caption = 'Use best palette'
  474.       ParentShowHint = False
  475.       ShowHint = True
  476.       TabOrder = 1
  477.       OnClick = GPallClick
  478.     end
  479.   end
  480. end
  481.